home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / henning listing2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  670b  |  27 lines
  1. 40 for s=0 to 62:read r:poke 704+s,r:next:rem schleife zum einlesen von fredl
  2. 50 data 0,1,0,0,2,0,0,4,0,0
  3. 60 data 8,0,0,8,0,0,8,0,0,8
  4. 70 data 0,0,126,0,0,129,0,1,48,128
  5. 80 data 2,48,64,4,32,32,8,61,16,16
  6. 90 data 49,8,32,49,4,255,255,255,127,255
  7. 100 data 254,31,255,248,2,0,64,4,0,32,8,0,16
  8. 110 xreg=53248
  9. 120 yreg=53249
  10. 130 poke 2040,11:rem sprite-zeiger
  11. 140 xp=60:poke xreg,xp:poke yreg,200:rem anfangsposition
  12. 150 poke 53269,1:rem fredl >>an<<
  13. 160 gosub 200:rem joystickabfrage
  14. 170 poke xreg,xp
  15. 180 goto 160
  16. 190 rem *****joystickabfrage*****
  17. 200 joy=peek(56321)
  18. 210 if joy=251 then 250
  19. 220 if joy=247 then 280
  20. 230 goto 200
  21. 240 rem ****joystick links****
  22. 250 ifxp>2thenxp=xp-3
  23. 260 return
  24. 270 rem *****joystick rechts****
  25. 280 ifxp<253thenxp=xp+3
  26. 290 return
  27.